home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 3 / ct-rom iiib.zip / ct-rom iiib / WINDOWS / DIVERSEN / MCAD / DECAY.MCD / DECAY.MCD
Text File  |  1991-06-12  |  5KB  |  219 lines
  1. .MCD 30001 1 74
  2. .CMD PLOTFORMAT
  3. 0 0 1 0 0
  4. 0 0 1 0 0
  5. 0 1 0 0 NO-TRACE-STRING
  6. 0 2 1 0 NO-TRACE-STRING
  7. 0 3 2 0 NO-TRACE-STRING
  8. 0 4 3 0 NO-TRACE-STRING
  9. 0 1 4 0 NO-TRACE-STRING
  10. 0 2 5 0 NO-TRACE-STRING
  11. 0 3 6 0 NO-TRACE-STRING
  12. 0 4 0 0 NO-TRACE-STRING
  13. 0 1 1 0 NO-TRACE-STRING
  14. 0 2 2 0 NO-TRACE-STRING
  15. 0 3 3 0 NO-TRACE-STRING
  16. 0 4 4 0 NO-TRACE-STRING
  17. 0 1 5 0 NO-TRACE-STRING
  18. 0 2 6 0 NO-TRACE-STRING
  19. 0 3 0 0 NO-TRACE-STRING
  20. 0 4 1 0 NO-TRACE-STRING
  21. 0 1 21 15
  22.  
  23. .CMD FORMAT  rd=d ct=10 im=i et=3 zt=15 pr=3 mass length time charge
  24. .CMD SET ORIGIN 0
  25. .CMD SET TOL 0.001000000000000
  26. .CMD SET PRNCOLWIDTH 8
  27. .CMD SET PRNPRECISION 4
  28. .CMD PRINT_SETUP 1.200000 0
  29. .CMD DEFINE_FONTSTYLE_NAME fontID=0 name=Variables
  30. .CMD DEFINE_FONTSTYLE_NAME fontID=1 name=Constants
  31. .CMD DEFINE_FONTSTYLE_NAME fontID=2 name=Text
  32. .CMD DEFINE_FONTSTYLE_NAME fontID=3 name=Greek^Variables
  33. .CMD DEFINE_FONTSTYLE_NAME fontID=4 name=User^1
  34. .CMD DEFINE_FONTSTYLE_NAME fontID=5 name=User^2
  35. .CMD DEFINE_FONTSTYLE_NAME fontID=6 name=User^3
  36. .CMD DEFINE_FONTSTYLE_NAME fontID=7 name=User^4
  37. .CMD DEFINE_FONTSTYLE_NAME fontID=8 name=User^5
  38. .CMD DEFINE_FONTSTYLE_NAME fontID=9 name=User^6
  39. .CMD DEFINE_FONTSTYLE fontID=0 family=Tms^Rmn points=10 bold=0 italic=0 underline=0
  40. .CMD DEFINE_FONTSTYLE fontID=1 family=Tms^Rmn points=10 bold=0 italic=0 underline=0
  41. .CMD DEFINE_FONTSTYLE fontID=2 family=Helv points=10 bold=0 italic=0 underline=0
  42. .CMD DEFINE_FONTSTYLE fontID=3 family=Symbol points=10 bold=0 italic=0 underline=0
  43. .CMD DEFINE_FONTSTYLE fontID=4 family=Helv points=10 bold=0 italic=0 underline=0
  44. .CMD DEFINE_FONTSTYLE fontID=5 family=Courier points=10 bold=0 italic=0 underline=0
  45. .CMD DEFINE_FONTSTYLE fontID=6 family=System points=10 bold=0 italic=0 underline=0
  46. .CMD DEFINE_FONTSTYLE fontID=7 family=Script points=10 bold=0 italic=0 underline=0
  47. .CMD DEFINE_FONTSTYLE fontID=8 family=Terminal points=0 bold=0 italic=0 underline=0
  48. .CMD DEFINE_FONTSTYLE fontID=9 family=Modern points=10 bold=0 italic=0 underline=0
  49. .CMD UNITS U=1
  50. .TXT 2 1 0 0
  51. C a197,237,70
  52. {\rtf1\ansi \deff0
  53. {\fonttbl
  54. {\f0\fnil Helv;}
  55. {\f1\fnil Symbol;}
  56. {\f2\fnil Courier;}
  57. }
  58. {\plain {}{\f0 \fs24 \b \i \ulnone }{}{\f0 
  59. \fs24 \b \i \ulnone RADIOACTIVE DECAY}{}}
  60. }
  61. .TXT 4 9 0 0
  62. C a432,434,167
  63. {\rtf1\ansi \deff0
  64. {\fonttbl
  65. {\f0\fnil Helv;}
  66. {\f1\fnil Symbol;}
  67. {\f2\fnil Courier;}
  68. }
  69. {\plain {}{This document shows the results
  70.  of radioactive decay. Element A decays 
  71. with a half-life of thalfA into element 
  72. B. Element B decays with a half-life of 
  73. thalfB.}{}}
  74. }
  75. .EQN 9 0 0 0
  76. gm~1M
  77. .EQN 0 20 0 0
  78. yr~1T
  79. .TXT 5 -29 0 0
  80. C a152,154,26
  81. {\rtf1\ansi \deff0
  82. {\fonttbl
  83. {\f0\fnil Helv;}
  84. {\f1\fnil Symbol;}
  85. {\f2\fnil Courier;}
  86. }
  87. {\plain {}{Initial conditions:}{}}
  88. }
  89. .TXT 4 9 0 0
  90. C a224,226,35
  91. {\rtf1\ansi \deff0
  92. {\fonttbl
  93. {\f0\fnil Helv;}
  94. {\f1\fnil Symbol;}
  95. {\f2\fnil Courier;}
  96. }
  97. {\plain {}{Initial amount of element A:}{}}
  98. }
  99. .EQN 0 34 0 0
  100. A0:100*gm
  101. .TXT 4 -34 0 0
  102. C a88,90,18
  103. {\rtf1\ansi \deff0
  104. {\fonttbl
  105. {\f0\fnil Helv;}
  106. {\f1\fnil Symbol;}
  107. {\f2\fnil Courier;}
  108. }
  109. {\plain {}{Half-lives:}{}}
  110. }
  111. .EQN 1 14 0 0
  112. thalfA:10*yr
  113. .EQN 0 19 0 0
  114. thalfB:100*yr
  115. .TXT 4 -33 0 0
  116. C a240,242,49
  117. {\rtf1\ansi \deff0
  118. {\fonttbl
  119. {\f0\fnil Helv;}
  120. {\f1\fnil Symbol;}
  121. {\f2\fnil Courier;}
  122. }
  123. {\plain {}{Ratio: mass of 1 atom of A to
  124.  1 atom of B:}{}}
  125. }
  126. .EQN 0 34 0 0
  127. {3}a:1.1
  128. .TXT 5 -43 0 0
  129. C a192,194,31
  130. {\rtf1\ansi \deff0
  131. {\fonttbl
  132. {\f0\fnil Helv;}
  133. {\f1\fnil Symbol;}
  134. {\f2\fnil Courier;}
  135. }
  136. {\plain {}{Compute decay constants:}{}}
  137. }
  138. .EQN 4 10 0 0
  139. kA:(ln(2))/(thalfA)
  140. .EQN 0 20 0 0
  141. kB:(ln(2))/(thalfB)
  142. .TXT 6 -30 0 0
  143. C a128,130,23
  144. {\rtf1\ansi \deff0
  145. {\fonttbl
  146. {\f0\fnil Helv;}
  147. {\f1\fnil Symbol;}
  148. {\f2\fnil Courier;}
  149. }
  150. {\plain {}{Decay functions:}{}}
  151. }
  152. .EQN 4 10 0 0
  153. A(t):A0*(e)^(-(kA*t))
  154. .EQN 6 0 0 0
  155. B(t):-{3}a*A0*(e)^(-(kB*t))*((e)^(-(kA*t))-1)
  156. .TXT 6 -10 0 0
  157. C a288,290,43
  158. {\rtf1\ansi \deff0
  159. {\fonttbl
  160. {\f0\fnil Helv;}
  161. {\f1\fnil Symbol;}
  162. {\f2\fnil Courier;}
  163. }
  164. {\plain {}{Graph the mass of A and B over
  165.  time:}{}}
  166. }
  167. .EQN 4 10 0 0
  168. t:0*yr,2*yr;200*yr
  169. .EQN 0 35 0 0
  170. t2:0*yr,10*yr;200*yr
  171. .EQN 4 -45 0 0
  172. A0&0*gm&A(t),B(t)@200*yr&0*yr&t
  173. 0 0 0 1 0
  174. 0 0 0 1 0
  175. 0 1 0 5 NO-TRACE-STRING
  176. 0 2 1 0 NO-TRACE-STRING
  177. 0 3 2 0 NO-TRACE-STRING
  178. 0 4 3 0 NO-TRACE-STRING
  179. 0 1 4 0 NO-TRACE-STRING
  180. 0 2 5 0 NO-TRACE-STRING
  181. 0 3 6 0 NO-TRACE-STRING
  182. 0 4 0 0 NO-TRACE-STRING
  183. 0 1 1 0 NO-TRACE-STRING
  184. 0 2 2 0 NO-TRACE-STRING
  185. 0 3 3 0 NO-TRACE-STRING
  186. 0 4 4 0 NO-TRACE-STRING
  187. 0 1 5 0 NO-TRACE-STRING
  188. 0 2 6 0 NO-TRACE-STRING
  189. 0 3 0 0 NO-TRACE-STRING
  190. 0 4 1 0 NO-TRACE-STRING
  191. 0 1 30 30
  192.  
  193. .EQN 0 46 0 0
  194. (t2)/(yr)=
  195. .EQN 0 10 0 0
  196. (A(t2))/(gm){19137}=
  197. .EQN 0 10 0 0
  198. (B(t2))/(gm){18993}=
  199. .TXT 24 -28 0 0
  200. C a9,10,8
  201. {\rtf1\ansi \deff0
  202. {\fonttbl
  203. {\f0\fnil Helv;}
  204. {\f1\fnil Symbol;}
  205. {\f2\fnil Courier;}
  206. }
  207. {\plain {}{B}{}}
  208. }
  209. .TXT 8 0 0 0
  210. C a9,9,8
  211. {\rtf1\ansi \deff0
  212. {\fonttbl
  213. {\f0\fnil Helv;}
  214. {\f1\fnil Symbol;}
  215. {\f2\fnil Courier;}
  216. }
  217. {\plain {}{A}{}}
  218. }
  219.